home *** CD-ROM | disk | FTP | other *** search
/ The Best of Tucows 2 / The Best of TUCOWS Volume 2.iso / files3x / twsk30d.exe / BYE.CM_ / BYE
Text File  |  1996-12-11  |  748b  |  40 lines

  1. #
  2. #  Trumpet Winsock 3.0 Bye.cmd
  3. #
  4. #  Copyright (C) 1996 distributed by
  5. #  Trumpet Software International Pty Ltd 
  6. #  A.C.N 070065860
  7. #  Under Licence from the Copyright owners.
  8. #  All Rights Reserved.
  9. #  
  10. #
  11. #
  12. #
  13. include "modem.cmd","preload"
  14. #
  15. status "Disconnecting modem..."
  16. if %usedtr
  17.   set dtr off
  18.   sleep 2
  19.   set dtr on
  20. end
  21. if %useat
  22.   # set the hangup string to a sensible value in case user 
  23.   # has blanked it out by mistake.  Otherwise modem will not
  24.   # hang up.
  25.   if trim($modemhangup) = ""
  26.     $modemhangup = "h"
  27.   end
  28.   sleep 2
  29.   output +++
  30.   if ![input 1 +++]
  31.     %ok = [input 5 OK\n]
  32.   else
  33.     output \n
  34.   end
  35.   output at$modemhangup\r
  36.   input 5 OK\n
  37. end
  38. status "Modem has been disconnected."
  39.  
  40.